home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / plot.dxr / 00137_Radians.ls < prev    next >
Encoding:
Text File  |  2000-08-01  |  371 b   |  14 lines
  1. on mouseUp
  2.   puppetSound("click")
  3.   if the hilite of cast "Degrees" then
  4.     put PI / 180.0 * field "theta" into field "theta"
  5.   end if
  6.   set the hilite of cast "Degrees" to 0
  7.   set the hilite of cast "Radians" to 1
  8.   if the hilite of cast "Degrees" then
  9.     set the castNum of sprite 16 to cast "Degs"
  10.   else
  11.     set the castNum of sprite 16 to cast "Rads"
  12.   end if
  13. end
  14.